COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00004 ENDMK
C⊗;
PRECEDE;				< Preliminary things
NPTIX←120;
FUNC DUET.FUN;		< Get functions from EXAMP.FUN[INS,MUS]
COMMON TOOT,CLAR,BUZZ;
*

REVRB 0 0 1;P2  65;END;

TOOT ;
P2 RH/Z(4/8///16//2/4/16////8./16/4/8/////)/@Z/@Z/@-Z;
P3 NO/A(FS4/D5/CS/G/FS/E/ A:FS:DS/G:E:B4/FS5/E/D/CS/B4/BF/A/G/E/FS/G/
A/B)/@A1/@A2/@-A3/@A4/GS4/FINE;
CON .5 " " .5 "*2";
P4 .4;
P5 F2;
P6 FU/F6/F7/F8;
P7 .07;
P18 DF MOV/30 1 .18/30 .18 1;
END;
CLAR ;
P2 RH/Y(4/12///4./8/4./8/2/4///)/@Y/@Y/@-Y;
P3 NO/B(D2/FS/G/E/B/A/FS/G/D/CS/E/A1/G)/@B-1/@B-2/@-B-3/@B-4/B2/FINE;
CON .33 " " .33 "*2" .34 "*4";
P4 1;
P5 F3;
P6 FU/F8/F6//F7;
P7 .09;
P18 DF MOV/30 .2 1/30  1 .2;
END;
BUZZ 0 60;
P2 RLIST/.1 2/4 5/10 10/.2 .4;
P3 1 70 200;
P5 F3;
P6 .33 "F6" .33 "F7"  .34 "F8";
P7 .09;
P4 .6;
P17 .7 0,0 .3 1,1;
P18 .5 "P3*4"  .5 "P3*1.2";
P19 .5 "F3"  .5 "F4";
END;
TEMPO/50 55 180/10 180 60;